10 POKE53281,12:POKE53280,12:PRINTCHR$(8)CHR$(5)CHR$(14):Z$=CHR$(0):OPEN15,8,15
20 PRINT"[147]      [193][212][212][197][206][196][193][206][195][197]/[200][207][205][197][215][207][210][203][146] [210][197][208][207][210][212][197][210]
30 [153]"            (null)OM (null)ICHARDSON
40 PRINT"             [196]ANA [195]OLLEGE
50 [153]"             (null)OVEMBER 1983
60 FORI=1TO1000:NEXT
70 BYTE=0:BIT=0:TE=0:SF=0:K=0:TM=0:KK=0   :A=0:SU=0:V=0:VV=0:NS=0:I=0:J=0:D=0
80 SS=0:DAY=0:P$(1)="OK"
90 DIM DA$(64),A(50,64),SN$(50)
100 PRINT"[147]      [210][197][195][207][210][196] [210][197][208][207][210][212][197][210]
110 [153]"    PRESS A LETTER . . .
120 PRINT"      A.  HOMEWORK FILE
130 [153]"      B.  ATTENDANCE FILE
135 PRINT"      C.  TERMINATE RUN
140 GS$[178]"ABC":[141]9000:[139]V[178]3[167][128]
145 [153]"      CHOICE WAS "G$:VV[178]V
150 [153]"ENTER NAME OF FILE";
160 [133]"*CMDCMDCMD";F$:[139]F$[178]"*"[167]100
170 F$[178][200](F$,15)
180 [153]"VERIFY NAME: "F$"WAIT: YWAIT/N"
190 GS$[178]"YN":[141]9000:[139]V[178]2[167]150
200 [159]7,8,7,"0:N"[170]F$[170]",S,R"
220 [141]10000:[139]A[178]62[167][160]7:[137]150
230 [161]#7,NS$:NS[178][198](NS$[170]Z$)
240 [139]NS[178]0[167][160]7:[153]"BAD FILE":[137]150
250 [129]I[178]1[164]NS:[132]7,SN$(I):[130]I
260 [160]7
270 [139]VV[178]1[167]G$[178]"0:H"[170]F$[170]",S,R"           :T$[178]"HOMEWORK":P$(0)[178]"NO PAPERWAIT"
280 [139]VV[178]2[167]G$[178]"0:A"[170]F$[170]",S,R"           :T$[178]"ATTENDANCE":P$(0)[178]"ABSENTWAIT"
300 [153]"LOAD"T$" RECORDS FOR "F$
310 [153]"      LOADING DATA--PLEASE STAND BY
320 OPEN8,8,8,G$:GOSUB10000                :IFA=62THENCLOSE8:GOSUB8990
330 FORI=1TONS:FORJ=0TO7:GET#8,A$:A(I,J)=ASC(A$+Z$):NEXTJ:NEXTI
340 GET#8,D$:D=ASC(D$+Z$)
350 FORI=1TOD:INPUT#8,DA$(I):NEXTI:D=D-1
360 CLOSE8
400 PRINT"[147]"T$" RECORDS FOR "F$
410 PRINT" DO IT BY S[146]TUDENT
420 [153]"    OR BY DWAITATE/ENTRY
425 PRINT"   OR GET A[146]NOTHER FILE
430 GS$[178]"SDA":[141]9000                    :[145]V[137]500,1000,100
500 [153]"LOAD"T$" RECORDS FOR "F$
505 [133]"NAME OF STUDENT  CMD *CMDCMDCMD";SS$
510 [139]SS$[178]"*"[167]400
520 [141]2000
530 [139]I[178]0[167]500
540 [141]700
550 PS[178]0:SU[178]0:N[178]0:[129]J[178]1[164]D
560 DAY[178]J
570 BYTE[178][181]((DAY[171]1)[173]8):TM[178]A(I,BYTE)
580 BIT[178]DAY[171]BYTE[172]8[171]1:TE[178]2[174]BIT
590 K[178](TM[175]TE)[173]TE:SU[178]SU[170]K
600 [153]DA$(J)"  "P$(K)[163]20);:PS[178]PS[170]1   :[139]PS[178]2[167]PS[178]0:[153]
610 N[178]N[170]1:[139]N[178]30[167]N[178]0                    :[141]8990:[141]700
615 [130]
620 [153]""SU"OUT OF"D                    :[141]8990:[137]500
700 [153]"LOAD"T$" RECORD OF "SN$(I)"
710 RETURN
1000 PRINT"[147]"T$" RECORDS FOR "F$
1005 INPUT"DESIRED ENTRY  [157] *[157][157][157]";SS$
1010 IFSS$="*"THEN400
1020 GOSUB2100
1030 IFI=0THEN1000
1040 DAY=I:SU=0
1050 BYTE=INT((DAY-1)/8)
1060 BIT=DAY-BYTE*8-1:TE=2^BIT
1065 GOSUB1200
1070 N=0:SU=0:FORKK=1TONS
1080 IFLEFT$(SN$(KK),4)="DROP"THEN1110
1090 TM=A(KK,BYTE):K=(TMANDTE)/TE:SU=SU+K
1100 PRINTSN$(KK)TAB(25)P$(K)
1105 N=N+1:IFN=15THENN=0                    :GOSUB8990:GOSUB1200
1110 NEXT
1120 PRINT""SU"OK":GOSUB8990
1130 GOTO400
1200 PRINT"[147]"T$" RECORD FOR "DA$(DAY)"
1210 [142]
2000 [143] STRING SEARCH--NAMES
2010 SS[178][195](SS$):[129]I[178]1[164]NS
2020 [129]J[178]1[164]([195](SN$(I))[171]SS[170]1)
2030 [139] SS$[178][202](SN$(I),J,SS)[167][142]
2040 [130]J:[130]I:I[178]0:[142]
2100 [143] STRING SEARCH--DATES
2110 SS[178][195](SS$):[129]I[178]1[164]D
2120 [129]J[178]1[164]([195](DA$(I))[171]SS[170]1)
2130 [139] SS$[178][202](DA$(I),J,SS)[167][142]
2140 [130]J:[130]I:I[178]0:[142]
8990 [153]"PRESS RETURNWAIT TO CONTINUE":GS$[178][199](13)
9000 [161]G$:[129]V[178]1[164][195](GS$):[139]G$[178][202](GS$,V,1)[167][142]
9010 [130]V:[137]9000
10000 [132]15,A,A$:[139]A[179][178]1[167][142]
10010 [153]A$:[139]A[178]62[176]A[178]63[167][142]
10020 [144]